# tlp data
tlp.dat <- read.csv("06_TurgorLossPoint.csv",header=T) 
tlp.sp <- round(tapply(tlp.dat$TLP.MPa,tlp.dat$species,mean,na.rm=T),2)
tlp.sp.se <- round(tapply(tlp.dat$TLP.MPa,tlp.dat$species,se),2)
tlp.all.p <- tlp.sp + tlp.sp.se
tlp.all.n <- tlp.sp - tlp.sp.se

# Trait data for six species Kaboega
new.d <- read.csv("13_TraitData.csv")
# Remove the rownames
new.d <- new.d[,-1]
# Rename the dataset 
trait.data <- new.d

# Modulus of elasticity
# TLP
# Osmotic potential at full turgor
# LMA
# Tree Height
getwd()
